home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC Electronics Plus 3
/
PC Electronics Plus 3.iso
/
subdwg
/
lsp
/
ican.lsp
< prev
next >
Wrap
Lisp/Scheme
|
1995-03-24
|
1KB
|
37 lines
;*******************************************************************
:* Comando : ican
;* Comentarios : esta funcion se usa para insertar simbolos
;* unilineales en una forma mas natural que con el comando insert.
;* Se usa basicamente para los bloques de simbolos
;*******************************************************************
;
; Change Log
;
; 14/10/94 C.Perigault Creacion
;
(defun c:ican()
(setq nombre (getstring "\nNombre del equipo: "))
(setq path (getenv "SUBCAN"))
; SUBCAN varible del sistema que posee el path dondo se encuentran
; los dibujos de canalizacion
; vemos si el bloque existe en el dibujo
; de no ser asi lo buscamos en el disco
(if (tblsearch "BLOCK" nombre)
(progn
(setvar "TEXTEVAL" 1)
(command "INSERT" nombre pause)
(setvar "TEXTEVAL" 0)
); progn
; buscamo el dibujo en el disco
(if (findfile (strcat path "\\" nombre ".dwg"))
(progn
(setvar "TEXTEVAL" 1)
(command "INSERT" (strcat path "\\" nombre ".dwg") pause 1 1 pause)
(setvar "TEXTEVAL" 0)
); progn
(princ (strcat "\nEl equipo: " nombre " no se encuentra" ))
); if
); if
); defun